home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / source / contrib / stmaryrd / stmaryrd.mf < prev   
Text File  |  1995-03-09  |  4KB  |  96 lines
  1. %%% ====================================================================
  2. %%%  @METAFONT-file{
  3. %%%     author-1        = "Jeremy Gibbons",
  4. %%%     author-2        = "Alan Jeffrey",
  5. %%%     version         = "1.1",
  6. %%%     date            = "02 June 1992",
  7. %%%     time            = "15:06:36 BST",
  8. %%%     filename        = "stmaryrd.mf",
  9. %%%     address-1       = "Department of Computer Science
  10. %%%                        University of Aukland
  11. %%%                        Private Bag
  12. %%%                        Aukland
  13. %%%                        New Zealand",
  14. %%%     address-2       = "School of Cognitive and Computing Sciences
  15. %%%                        University of Sussex
  16. %%%                        Brighton BN1 9QH
  17. %%%                        UK",
  18. %%%     telephone-1     = "+64 9 373 7599 x 5120",
  19. %%%     telephone-2     = "+44 273 606755 x 3238",
  20. %%%     FAX-1           = "+64 9 373 7453",
  21. %%%     FAX-2           = "+44 273 678188",
  22. %%%     checksum        = "50004 95 506 4017",
  23. %%%     email-1         = "jeremy@cs.aukuni.ac.nz",
  24. %%%     email-2         = "alanje@cogs.sussex.ac.uk",
  25. %%%     codetable       = "ISO/ASCII",
  26. %%%     keywords        = "metafont symbols math fonts",
  27. %%%     supported       = "yes",
  28. %%%     abstract        = "This is part of the metafont program for
  29. %%%                        the St Mary's Road symbol font.",
  30. %%%     docstring       = "This is part of the metafont program for
  31. %%%                        the St Mary's Road symbol font.  The font
  32. %%%                        contains a number of mathematical
  33. %%%                        characters which are not present in the
  34. %%%                        standard TeX and AMS symbol fonts.
  35. %%%
  36. %%%                        It is described in stmaryrd.tex.
  37. %%%
  38. %%%                        Copyright 1992 Jeremy Gibbons and Alan Jeffrey.
  39. %%%
  40. %%%                        The checksum field above contains a CRC-16
  41. %%%                        checksum as the first value, followed by the
  42. %%%                        equivalent of the standard UNIX wc (word
  43. %%%                        count) utility output of lines, words, and
  44. %%%                        characters.  This is produced by Robert
  45. %%%                        Solovay's checksum utility.",
  46. %%%     package         = "St Mary's Road",
  47. %%%     dependencies    = "stmaryba.mf stmarych.mf stmaryjg.mf stmaryaj.mf",
  48. %%%  }
  49. %%% ====================================================================
  50. %%%
  51. %%% 20 May 1991, v1.0: Created the font out of alans.mf and galileo.mf.
  52. %%%
  53. %%% 2 Jun 1992, v1.1: added the headers.
  54.  
  55. % This is the driver file for the St Mary's Road symbol font, named
  56. % after the palatial mansion (currently under investigation by the
  57. % Enviromental Health Officer) where we lived, and where many of the
  58. % symbols were designed and discussed over a bottle of wine and some
  59. % halva.
  60. %
  61. % Many of the symbols are derived (or `stolen', to use the technical
  62. % phrase from Knuth's Computer Modern fonts, and the American
  63. % Mathematical Society's msam and msbm fonts.  Please don't sue.
  64.  
  65. % We assume the parameters have been set by whichever file called us
  66. % (for example stmary10.mf).
  67.  
  68. % Here we steal a bit from mathsy
  69.  
  70. mode_setup; font_setup;
  71. autorounding:=0;
  72.  
  73. font_slant slant; font_x_height x_height#;
  74. font_quad 18u# if not monospace:+4letter_fit# fi;
  75. slant:=mono_charic#:=0;  % the remaining characters will not be slanted
  76. currenttransform:=identity yscaled aspect_ratio scaled granularity;
  77.  
  78. % The parameters for slashes for reductions:
  79.  
  80. slash_width := 7u; % horizontal extent of a slash
  81. slash_height := body_height;
  82. define_pixels(paren_depth); slash_depth := paren_depth;
  83. slash_offset := 3u; % offset of slash from arrowhead for reduction and accm
  84. slash_separation# := 3u#; % gap between slashes for accumulates
  85.  
  86. define_pixels(slash_separation);
  87.  
  88. % The input files:
  89.  
  90. input stmaryba; % Various macros we need.
  91. input stmarych; % Defines the character positions and extension information.
  92. input stmaryjg; % Jeremy's symbols.
  93. input stmaryaj; % Alan's symbols.
  94.  
  95. end
  96.